/ Komputer for Alle 2001 #9 / CD 9 (Black) - 2001.iso / Pinball / System / UWindow.u / ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 60 0d 63 6c 61 73 73 20 |........|`.class |
|00000010| 55 57 69 6e 64 6f 77 57 | 72 61 70 70 65 64 54 65 |UWindowW|rappedTe|
|00000020| 78 74 41 72 65 61 20 65 | 78 74 65 6e 64 73 20 55 |xtArea e|xtends U|
|00000030| 57 69 6e 64 6f 77 54 65 | 78 74 41 72 65 61 43 6f |WindowTe|xtAreaCo|
|00000040| 6e 74 72 6f 6c 3b 0d 0a | 0d 0a 66 75 6e 63 74 69 |ntrol;..|..functi|
|00000050| 6f 6e 20 50 61 69 6e 74 | 28 20 43 61 6e 76 61 73 |on Paint|( Canvas|
|00000060| 20 43 2c 20 66 6c 6f 61 | 74 20 58 2c 20 66 6c 6f | C, floa|t X, flo|
|00000070| 61 74 20 59 20 29 0d 0a | 7b 0d 0a 09 6c 6f 63 61 |at Y )..|{...loca|
|00000080| 6c 20 69 6e 74 20 69 2c | 20 4c 69 6e 65 3b 0d 0a |l int i,| Line;..|
|00000090| 09 6c 6f 63 61 6c 20 69 | 6e 74 20 54 65 6d 70 48 |.local i|nt TempH|
|000000a0| 65 61 64 2c 20 54 65 6d | 70 54 61 69 6c 3b 0d 0a |ead, Tem|pTail;..|
|000000b0| 09 6c 6f 63 61 6c 20 66 | 6c 6f 61 74 20 58 4c 2c |.local f|loat XL,|
|000000c0| 20 59 4c 3b 0d 0a 0d 0a | 09 43 2e 46 6f 6e 74 20 | YL;....|.C.Font |
|000000d0| 3d 20 52 6f 6f 74 2e 46 | 6f 6e 74 73 5b 46 6f 6e |= Root.F|onts[Fon|
|000000e0| 74 5d 3b 0d 0a 09 43 2e | 44 72 61 77 43 6f 6c 6f |t];...C.|DrawColo|
|000000f0| 72 2e 52 20 3d 20 32 35 | 35 3b 0d 0a 09 43 2e 44 |r.R = 25|5;...C.D|
|00000100| 72 61 77 43 6f 6c 6f 72 | 2e 47 20 3d 20 32 35 35 |rawColor|.G = 255|
|00000110| 3b 0d 0a 09 43 2e 44 72 | 61 77 43 6f 6c 6f 72 2e |;...C.Dr|awColor.|
|00000120| 42 20 3d 20 32 35 35 3b | 0d 0a 0d 0a 09 54 65 78 |B = 255;|.....Tex|
|00000130| 74 53 69 7a 65 28 43 2c | 20 22 54 45 53 54 22 2c |tSize(C,| "TEST",|
|00000140| 20 58 4c 2c 20 59 4c 29 | 3b 0d 0a 09 56 69 73 69 | XL, YL)|;...Visi|
|00000150| 62 6c 65 52 6f 77 73 20 | 3d 20 57 69 6e 48 65 69 |bleRows |= WinHei|
|00000160| 67 68 74 20 2f 20 59 4c | 3b 0d 0a 0d 0a 09 69 66 |ght / YL|;.....if|
|00000170| 20 28 62 53 63 72 6f 6c | 6c 61 62 6c 65 29 0d 0a | (bScrol|lable)..|
|00000180| 09 7b 0d 0a 09 09 56 65 | 72 74 53 42 2e 53 65 74 |.{....Ve|rtSB.Set|
|00000190| 52 61 6e 67 65 28 30 2c | 20 4c 69 6e 65 73 2c 20 |Range(0,| Lines, |
|000001a0| 56 69 73 69 62 6c 65 52 | 6f 77 73 29 3b 0d 0a 09 |VisibleR|ows);...|
|000001b0| 7d 0d 0a 0d 0a 09 54 65 | 6d 70 48 65 61 64 20 3d |}.....Te|mpHead =|
|000001c0| 20 48 65 61 64 3b 0d 0a | 09 54 65 6d 70 54 61 69 | Head;..|.TempTai|
|000001d0| 6c 20 3d 20 54 61 69 6c | 3b 0d 0a 09 4c 69 6e 65 |l = Tail|;...Line|
|000001e0| 20 3d 20 54 65 6d 70 48 | 65 61 64 3b 0d 0a 09 54 | = TempH|ead;...T|
|000001f0| 65 78 74 41 72 65 61 5b | 4c 69 6e 65 5d 20 3d 20 |extArea[|Line] = |
|00000200| 50 72 6f 6d 70 74 3b 0d | 0a 09 69 66 20 28 62 53 |Prompt;.|..if (bS|
|00000210| 63 72 6f 6c 6c 61 62 6c | 65 29 0d 0a 09 7b 0d 0a |crollabl|e)...{..|
|00000220| 09 09 69 66 20 28 56 65 | 72 74 53 42 2e 4d 61 78 |..if (Ve|rtSB.Max|
|00000230| 50 6f 73 20 2d 20 56 65 | 72 74 53 42 2e 50 6f 73 |Pos - Ve|rtSB.Pos|
|00000240| 20 3e 20 30 29 0d 0a 09 | 09 7b 0d 0a 09 09 09 4c | > 0)...|.{.....L|
|00000250| 69 6e 65 20 2d 3d 20 56 | 65 72 74 53 42 2e 4d 61 |ine -= V|ertSB.Ma|
|00000260| 78 50 6f 73 20 2d 20 56 | 65 72 74 53 42 2e 50 6f |xPos - V|ertSB.Po|
|00000270| 73 3b 0d 0a 09 09 09 54 | 65 6d 70 54 61 69 6c 20 |s;.....T|empTail |
|00000280| 2d 3d 20 56 65 72 74 53 | 42 2e 4d 61 78 50 6f 73 |-= VertS|B.MaxPos|
|00000290| 20 2d 20 56 65 72 74 53 | 42 2e 50 6f 73 3b 0d 0a | - VertS|B.Pos;..|
|000002a0| 09 09 7d 0d 0a 09 7d 0d | 0a 09 66 6f 72 20 28 69 |..}...}.|..for (i|
|000002b0| 3d 30 3b 20 69 3c 56 69 | 73 69 62 6c 65 52 6f 77 |=0; i<Vi|sibleRow|
|000002c0| 73 3b 20 69 2b 2b 29 0d | 0a 09 7b 0d 0a 09 09 57 |s; i++).|..{....W|
|000002d0| 72 61 70 43 6c 69 70 54 | 65 78 74 28 43 2c 20 32 |rapClipT|ext(C, 2|
|000002e0| 2c 20 59 4c 2a 28 56 69 | 73 69 62 6c 65 52 6f 77 |, YL*(Vi|sibleRow|
|000002f0| 73 2d 69 2d 31 29 2c 20 | 54 65 78 74 41 72 65 61 |s-i-1), |TextArea|
|00000300| 5b 4c 69 6e 65 2d 31 5d | 29 3b 0d 0a 09 09 4c 69 |[Line-1]|);....Li|
|00000310| 6e 65 2d 2d 3b 0d 0a 09 | 09 69 66 20 28 54 65 6d |ne--;...|.if (Tem|
|00000320| 70 54 61 69 6c 20 3d 3d | 20 4c 69 6e 65 29 0d 0a |pTail ==| Line)..|
|00000330| 09 09 09 62 72 65 61 6b | 3b 0d 0a 09 09 69 66 20 |...break|;....if |
|00000340| 28 4c 69 6e 65 20 3c 20 | 30 29 0d 0a 09 09 09 4c |(Line < |0).....L|
|00000350| 69 6e 65 20 3d 20 42 75 | 66 53 69 7a 65 2d 31 3b |ine = Bu|fSize-1;|
|00000360| 0d 0a 09 7d 0d 0a 7d 0d | 0a 00                   |...}..}.|..      |
+--------+-------------------------+-------------------------+--------+--------+